00100		TITLE UNPAC	;UNPACKS WORD AND DOES ROTATION.
00200		ENTRY UNPAC,PAC
00300	
00400	UNPAC:	0
00500		MOVE 14,@(16)	;INPUT WORD
00600		LSHC 14,-10
00700		ASH 15,-34
00800	;	JUMPG 15,NORSET  ;NEXT FOR RESET OF COORDS TO 0,0  (SVPEN=-3)
00900	;	LSHC 14,-16
01000	;	ASH 15,-26
01100	;	ADDM 15,SHIFT	;PUSH UP SHIFT
01200	NORSET:	MOVEM 15,@3(16)	;GET PEN CODE - NO RESET
01300		LSHC 14,-16
01400		ASH 15,-26
01500		MOVEM 15,@1(16)		;GET Y AND PUT INTO X
01600		LSHC 14,-16	
01700		ASH 15,-26
01800		MOVNM 15,@2(16)		;PUT -X INTO Y
01900		JRA 16,4(16)
02000	
02100	PAC:	0	;CALL PAC(MM,I,J,K)
02200		HRRZI	4,@3(16)	;PACK PEN CODE
02300		HRR	5,@4
02400		LSHC	5,-10
02500		HRRZI	4,@2(16)	;PACK Y COORD
02600		HRR	5,@4
02700		LSHC	5,-16
02800		HRRZI	4,@1(16)	;PACK X COORD
02900		HRR	5,@4
03000		LSHC	5,-16
03100		MOVEM	6,@(16)		;PUT AWAY PACKED WORD
03200		MOVEM	6,LASTPK#	;SAVE LAST PACKED FOR END OF DATA
03300		JRA 16,4(16)
03400		END